home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / mxcode / vtsrc12b / makestr.pas < prev    next >
Pascal/Delphi Source File  |  1992-11-03  |  776b  |  40 lines
  1. PROGRAM MakeStr;
  2.  
  3. USES Objects, StrConst, VTStrConst;
  4.  
  5.  
  6. CONST
  7.   EspHeader : STRING = 'VT LNG. Fichero de lenguajes del VangeliSTracker. Español.'#$1A;
  8.   EngHeader : STRING = 'VT LNG. VangeliSTracker language file. English.'#$1A;
  9.  
  10. VAR
  11.   Stream : TDosStream;
  12.   List   : TStrListMaker;
  13.  
  14. BEGIN
  15.  
  16.   List.Init(65520, 65520);
  17.  
  18.   LibAddSpanishMsg(List);
  19.   VTAddSpanishMsg (List);
  20.  
  21.   Stream.Init('VT_Esp.Lng', stCreate);
  22.   Stream.Write(EspHeader[1], Length(EspHeader));
  23.   List.Store(Stream);
  24.   Stream.Done;
  25.   List.Done;
  26.  
  27.  
  28.  
  29.   List.Init(65520, 65520);
  30.  
  31.   LibAddEnglishMsg(List);
  32.   VTAddEnglishMsg (List);
  33.  
  34.   Stream.Init('VT_Eng.Lng', stCreate);
  35.   Stream.Write(EngHeader[1], Length(EngHeader));
  36.   List.Store(Stream);
  37.   Stream.Done;
  38.   List.Done;
  39.  
  40. END.